Вы можете использовать функции GetSetting и GetAllSettings, чтобы получить значения системного реестра. Например, ваша прикладная программа может получает параметры настройки системного реестра, чтобы восстановить условия которые были при завершении программы. Чтобы получить одиночную установку системного реестра, используйте следующий синтаксис для функции GetSetting:

GetSetting(appname, section, key[, default])

Пример.

Private Sub Form_Load()
   Dim intLastEntry As Integer
   intLastEntry = GetSetting("RegCust", "Startup",   "LastEntry", "0")
   Debug.Print intLastEntry
End Sub

Чтобы получить список настроек системного реестра и их значений, используйте следующий синтаксис для функции GetAllSettings:

GetAllSettings(appname, section)

Пример.

Private Sub Form_Load()
   Dim avntSettings As Variant
   Dim intX As Integer
   avntSettings = GetAllSettings("RegCust", "Startup")
   For intX = 0 To UBound(avntSettings, 1)
      Debug.Print avntSettings(intX, 0),  avntSettings(intX, 1)
   Next intX
End Sub